home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_A.d64 / collection kit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  12KB  |  355 lines
  1. 0 rem *********************************
  2. 1 rem *                               *
  3. 2 rem *  the stamping collection kit  *
  4. 3 rem *                               *
  5. 4 rem *  (c) in 1986  by arndt ganse  *
  6. 5 rem *  in den dornen 32             *
  7. 6 rem *  5810 witten-annen            *
  8. 7 rem *  tel. 02302/60698             *
  9. 8 rem *                               *
  10. 9 rem *********************************
  11. 10 poke53280,12:poke53281,12:print"[147]":dima$(22),rv$(22),b$(21):q=1:z=4:s=1
  12. 20 fori=1to40:b1$=b1$+" ":b2$=b2$+"[192]":next:br=12:lg=11:deffnzb(x)=lg+z:ic=1
  13. 30 deffnsb(x)=s+len(a$(az))+1:sa=1:iq=1
  14. 40 sz=6500:sw=1:fori=1to40:b3$=b3$+"[195]":next:ifps=1thensz=4500
  15. 41 ff$(1)="koenigreich":ff$(2)="grossherzogtum":ff$(3)="herzogtum"
  16. 42 ff$(4)="republik":ff$(5)="kaiserreich":ff$(6)="freistaat"
  17. 43 ff$(7)="fuerstentum":ff$(8)="volksstaat"
  18. 49 goto1000
  19. 50 :
  20. 60 rem standardmaske
  21. 70 :
  22. 80 print"[179][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][178]";
  23. 90 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:ford=1to21
  24. 100 print"[180]                                      [170]";:next
  25. 110 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  26. 111 ifps=0thenprint" part i";
  27. 112 ifps=1thenprint" part ^";
  28. 113 printleft$(b1$,15);
  29. 114 ifu%=0thenprint" data bank closed"
  30. 115 ifu%=1thenprint"   data bank open"
  31. 119 return
  32. 120 :
  33. 130 rem menueerstellung
  34. 140 :
  35. 150 print"[179][171][171]";x$(1);"[171][171]";x$(2);"[171][171]";x$(3);"[171][171]";x$(4);"[171][171]";x$(5);"[171][171]";x$(6);
  36. 155 print"[171][171][178]"
  37. 160 return
  38. 170 :
  39. 180 rem menueauswahl
  40. 190 :
  41. 200 vy=1:j=peek(56320):getx$
  42. 210 if(jand8)=0orx$=""thenifiq=6theniq=1:goto260
  43. 220 if(jand8)=0orx$=""thenifiq<6theniq=iq+1:goto260
  44. 230 if(jand4)=0orx$="[157]"thenifiq=1theniq=6:goto260
  45. 240 if(jand4)=0orx$="[157]"thenifiq>1theniq=iq-1:goto260
  46. 250 if(jand16)=0orx$=chr$(13)thenvy=0:return
  47. 260 fori=1to6:x$(i)="[146]"+right$(x$(i),5):next:x$(iq)=""+right$(x$(iq),5)
  48. 270 gosub120:ifvy=1thenvy=0:goto170
  49. 280 return
  50. 290 :
  51. 300 rem window-technik
  52. 310 :
  53. 320 ifz>(21-lg)ors>(37-br)thenz=2:s=2
  54. 330 z1=z+1:s1=s+1:poke214,z:poke211,s:sys58732:print"[213]";left$(b2$,br);"[201]"
  55. 340 forx=1tolg:poke214,z+x:poke211,s:sys58732:print"[221]";left$(b1$,br);"[194]":next
  56. 350 poke214,z+x:poke211,s:sys58732:print"[202]";left$(b3$,br);"[203]":fori=1toaz
  57. 360 poke214,z1:poke211,s1:sys58732:printa$(i):z1=z1+1:next:poke646,1:return
  58. 370 :
  59. 380 rem input-routine
  60. 390 :
  61. 400 poke198,0
  62. 410 sb=fnsb(x):zb=fnzb(x):be$="":poke214,zb:poke211,sb:sys58732:poke204,0
  63. 420 getx$:ifx$=chr$(13)andlen(be$)>=mithenpoke204,1:print" ":return
  64. 430 ifx$=""then420
  65. 440 x=asc(x$):ifx=20andbe$=""then420
  66. 445 ifx=133andps=0then850
  67. 447 ifx>132andx<141andps=1ands=6then940
  68. 450 ifx=20thenprint"[157]  [157][157]";:be$=left$(be$,len(be$)-1)
  69. 460 ifx<32orx>95orlen(be$)>=mathen420
  70. 470 printx$;:ifx=32thenbe$=be$+"":goto420
  71. 475 be$=be$+x$:goto420
  72. 480 :
  73. 490 rem menueauswahl-routine
  74. 500 :
  75. 510 poke198,0
  76. 520 fori=1toaz:rv$(i)="[146]":nexti:q=q+((q>az)*az):rv$(q)="":z1=z+1:fori=1toaz
  77. 530 poke214,z1:poke211,s1:sys58732:printrv$(i);a$(i);"[146]":z1=z1+1:nexti
  78. 540 j=peek(56320):getx$
  79. 550 if(jand1)=0orx$="[145]"thenifq=bnthenq=en:goto520
  80. 560 if(jand1)=0orx$="[145]"thenifq>bnthenq=q-1:goto520
  81. 570 if(jand2)=0orx$=""thenifq=enthenq=bn:goto520
  82. 580 if(jand2)=0orx$=""thenifq<enthenq=q+1:goto520
  83. 590 if(jand16)=0orx$=chr$(13)thenreturn
  84. 600 goto520
  85. 700 :
  86. 710 rem zeiger positionieren
  87. 720 :
  88. 730 hb%=sa/256:lb%=sa-hb%*256:print#15,"p";chr$(3);chr$(lb%);chr$(hb%);chr$(1)
  89. 740 return
  90. 750 :
  91. 760 rem disk ueberpfuefen
  92. 770 :
  93. 780 f%=peek(768):poke768,185:open1,8,15,"i":close1:poke768,f%
  94. 790 ifst<>-128thenreturn
  95. 800 az=6:a$(1)="drive":a$(2)="not":a$(3)="ready.":a$(4)="":a$(5)="press":s=10
  96. 810 a$(6)="button":z=z+2:br=6:lg=6:gosub320:gosub990:goto780
  97. 820 :
  98. 830 rem input zusatz i
  99. 840 :
  100. 850 poke211,sb:sys58732:ifs=6thends=1
  101. 860 ifs=11thends=2
  102. 870 ifs=15thends=3
  103. 880 ifs=25thends=4
  104. 890 ifs=28thends=5
  105. 900 printtr$(ds);:be$=tr$(ds):poke198,1:poke631,13:goto420
  106. 910 :
  107. 920 rem input zusatz ii
  108. 930 :
  109. 940 poke211,sb:sys58732:ifs=6thends=1
  110. 950 printff$(x-132);:be$=ff$(x-132):poke198,1:poke631,13:goto420
  111. 960 :
  112. 970 rem warten auf reaktion
  113. 980 :
  114. 990 getx$:ifpeek(56320)and16=0thenx$=chr$(13)
  115. 995 ifx$=chr$(13)thenreturn
  116. 999 goto990
  117. 1000 :
  118. 1010 rem hauptverteiler
  119. 1020 :
  120. 1030 x$(1)="crte[146]":x$(2)="open[146]":x$(3)="disk[146]":x$(4)="edit[146]":x$(5)="prnt[146]"
  121. 1040 x$(6)="exit[146]":gosub80:gosub260:gosub150:gosub200
  122. 1050 oniqgoto3000,2000,4000,7000,8000,6000
  123. 1060 end
  124. 2000 :
  125. 2010 rem open
  126. 2020 :
  127. 2030 ifu%=0thenu%=1:goto2070
  128. 2040 az=8:a$(1)="you must":a$(2)="first":a$(3)="close":a$(4)="the last":s=5:z=2
  129. 2050 a$(5)="data bank":a$(6)="":a$(7)="press":a$(8)="button":br=9:lg=8:gosub320
  130. 2060 gosub990:goto1030
  131. 2070 az=5:a$(1)="please":a$(2)="enter":a$(3)="name":a$(4)="":a$(5)=":":s=7:z=2
  132. 2080 br=6:lg=5:mi=1:ma=5:gosub320:gosub400:ifbe$="_"then1030
  133. 2085 da$=be$:az=6:a$(1)="please":s=5:br=9
  134. 2090 a$(2)="insert":a$(3)="your data":a$(4)="disk and":a$(5)="press"
  135. 2100 a$(6)="button":lg=6:z=z+2:gosub320:gosub990:gosub780
  136. 2110 open15,8,15,"i0":open1,8,3,da$:goto1030
  137. 3000 :
  138. 3010 rem create
  139. 3020 :
  140. 3030 ifu%<>0then2030
  141. 3040 az=5:a$(1)="please":a$(2)="enter":a$(3)="name":a$(4)="":a$(5)=":":s=1:z=2
  142. 3050 br=6:lg=5:mi=1:ma=5:gosub320:gosub400:ifbe$="_"then1030
  143. 3055 da$=be$:az=6:a$(1)="please":s=1:br=9
  144. 3060 a$(2)="insert a":a$(3)="formatted":a$(4)="disk and":a$(5)="press"
  145. 3070 a$(6)="button":lg=6:z=z+2:gosub320:gosub990:gosub780:az=5:s=1:z=z+2
  146. 3080 a$(1)="enter":a$(2)="no. of":a$(3)="entries":a$(4)="":a$(5)=":":br=7:lg=5
  147. 3090 mi=1:ma=4:gosub320:gosub400:sz=val(be$):ifsz<1then3090
  148. 3100 ifps=0andsz>6500then3090
  149. 3105 ifps=1andsz>4500then3090
  150. 3110 ifps=0thensl=25:hb=int(sz/255):lb=sz-hb*255:open15,8,15,"i0"
  151. 3115 ifps=1thensl=31:hb=int(sz/255):lb=sz-hb*255:open15,8,15,"i0"
  152. 3120 open1,8,3,da$+",l,"+chr$(sl):print#15,"p";chr$(3);chr$(lb);chr$(hb);chr$(1)
  153. 3130 print#1,chr$(255):close1:close15:goto1030
  154. 4000 :
  155. 4010 rem disk commands
  156. 4020 :
  157. 4030 ifu%<>0then2030
  158. 4040 az=5:a$(1)="":a$(2)="disk commands":a$(3)="directory":s=9:z=2:br=14:lg=5
  159. 4050 a$(4)="return to menu":a$(5)="":en=4:bn=2:q=2:gosub320:gosub510
  160. 4060 onqgoto0,4070,4110,1030
  161. 4070 az=5:a$(1)="insert disk":a$(2)="into drive":a$(3)="":a$(4)="press button"
  162. 4080 br=12:lg=4:s=s+2:z=z+2:gosub320:gosub990:gosub780:print"[147]"
  163. 4090 mi=1:ma=79:s=0:z=0:br=0:lg=0:gosub400:open1,8,15,be$:close1:open15,8,15
  164. 4100 input#15,a,b$,c,d:close15:printa,b$,c,d:print"press fire button"
  165. 4105 gosub990:goto4040
  166. 4110 az=5:a$(1)="insert disk":a$(2)="into drive":a$(3)="":a$(4)="press button"
  167. 4120 br=12:lg=4:s=s+2:z=z+2:gosub320:gosub990:gosub780:print"[147]"
  168. 4130 open1,8,0,"$":get#1,a$,a$
  169. 4140 get#1,a$,a$:ifst=64thenclose1:goto4180
  170. 4150 get#1,a$,b$:printasc(a$+chr$(0))+256*asc(b$+chr$(0));
  171. 4160 get#1,a$:printa$;:ifa$<>""then4160
  172. 4170 print:getx$:ifx$="_"then4180
  173. 4175 goto4140
  174. 4180 print"press fire button.":gosub990:goto4040
  175. 6000 :
  176. 6010 rem exit
  177. 6020 :
  178. 6030 close1:close15:u%=0:az=5:a$(2)="return to menu":a$(3)="return to basic"
  179. 6040 a$(1)="":a$(5)="":z=2:bn=2:en=4:br=15:lg=5:ifps=0thena$(4)="enter part ^"
  180. 6045 ifps=1thena$(4)="enter part i"
  181. 6050 s=22:q=2:gosub320:gosub510:ifq=2then1030
  182. 6060 ifq=4andps=1thenps=0:goto40
  183. 6070 ifq=4andps=0thenps=1:goto40
  184. 6080 end
  185. 7000 :
  186. 7010 rem edit
  187. 7020 :
  188. 7030 ifu%=1then7065
  189. 7040 az=5:a$(1)="you first":a$(2)="have to open":a$(3)="a data bank"
  190. 7050 a$(4)="":a$(5)="press button":br=12:lg=5:z=2:s=16:gosub320
  191. 7060 gosub990:goto1030
  192. 7065 ifps=1then9030
  193. 7070 az=7:a$(1)="read data bank":a$(2)="edit data bank":br=14:lg=7:z=2:s=15
  194. 7080 a$(3)="search an item":a$(4)="count entries":a$(7)="return to menu"
  195. 7090 a$(5)="save entries":a$(6)="edit data list":bn=1:en=7:gosub320:gosub510
  196. 7100 onqgoto7110,7180,7420,7320,7310,10030,1030
  197. 7110 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  198. 7120 a$(4)="see.":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  199. 7130 gosub400:ifbe$=""then7145
  200. 7135 ifbe$="_"then7030
  201. 7140 sa=val(be$):ifsa+20>szorsa<1then7120
  202. 7145 ifsa+20>szorsa<1then7120
  203. 7150 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  204. 7155 forx=1toi:w$=w$+"":next:printw$;"";sa
  205. 7160 sa=sa+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  206. 7165 printw$;"";b$(i):next:gosub990
  207. 7170 goto7110
  208. 7180 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  209. 7190 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  210. 7200 gosub400:ifbe$=""then7215
  211. 7205 ifbe$="_"then7030
  212. 7210 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  213. 7215 sw=sa:ifsa+21>szorsa<1then7190
  214. 7220 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  215. 7225 forx=1toi:w$=w$+"":next:printw$;"";sw
  216. 7230 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  217. 7235 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  218. 7240 fori=1to21:ifui=1thennext:ui=0:goto7180
  219. 7243 tr$="":mi=4:ma=4:s=6:z=z+1:gosub400:tr$=tr$+be$+" ":tr$(1)=be$
  220. 7245 ifbe$="____"thenui=1:next:ui=0:goto7180
  221. 7250 mi=0:ma=3:s=11:gosub400:tr$=tr$+left$(be$+"   ",3)+" ":tr$(2)=be$
  222. 7260 mi=0:ma=9:s=15:gosub400:tr$=tr$+left$(be$+"         ",9)+" ":tr$(3)=be$
  223. 7270 mi=1:ma=2:s=25:gosub400:tr$=tr$+left$(be$+"  ",2)+" ":tr$(4)=be$
  224. 7280 mi=1:ma=1:s=28:gosub400:tr$=tr$+left$(be$+" ",1):tr$(5)=be$
  225. 7290 gosub730:print#1,tr$:sa=sa+1:next
  226. 7300 goto7215
  227. 7310 close1:close15:open15,8,15,"i0":open1,8,3,da$:goto7030
  228. 7320 az=5:a$(1)="counting":fori=2to4:a$(i)="":next:s=s+2:z=z+2:lg=5:br=8
  229. 7330 a$(5)="stand by":gosub320:ne=0:sa=1:gosub730
  230. 7340 input#1,a$:b$=right$(a$,1):sa=sa+1
  231. 7350 poke214,z+3:poke211,s+2:sys58732:printright$("    "+str$(sa),4)
  232. 7360 ifb$="x"orb$="y"orb$="j"thenne=ne+1
  233. 7370 ifb$<>"[255]"then7340
  234. 7380 sa=sa-1:az=6:z=z+2:s=s+2:br=12:lg=6:a$(1)=da$:a$(2)="includes"
  235. 7390 a$(3)=right$("    "+str$(ne),4)+" of "+right$("    "+str$(sa),4)
  236. 7400 a$(4)="entries.":a$(5)="":a$(6)="press button":gosub320:gosub990
  237. 7410 goto7030
  238. 7420 az=5:z=z+2:s=s+2:lg=5:br=12:a$(1)="please enter":a$(2)="the cat. no."
  239. 7430 a$(3)="of the item":a$(4)="you want to":a$(5)="find:":mi=1:ma=4:gosub320
  240. 7440 gosub400:ifbe$="_"then7030
  241. 7450 no=val(be$):ifno<1orno>szthen7430
  242. 7460 sa=1:gosub730
  243. 7470 input#1,a$:sa=sa+1:ifa$="[255]"then7500
  244. 7480 b=val(left$(a$,4)):ifno<>bthen7470
  245. 7490 sa=sa-1:goto7145
  246. 7500 az=5:lg=5:br=14:z=z+2:s=s+2:a$(1)="no."+str$(no)+" is not"
  247. 7510 a$(2)="included in":a$(3)=da$:a$(4)="":a$(5)="press button":gosub320
  248. 7520 gosub990:goto7030
  249. 8000 :
  250. 8010 rem print-routine
  251. 8020 :
  252. 8030 ifu%=0then7040
  253. 8040 az=5:s=22:z=2:lg=5:br=12:a$(1)="attach your":a$(2)="printer to"
  254. 8050 a$(3)="the computer":a$(4)="":a$(5)="press button":gosub320
  255. 8060 gosub990:f%=peek(768):poke768,185:open4,4:close4:poke768,f%
  256. 8070 ifst<>-128then8050
  257. 8080 open4,4,7:sa=1:gosub730:print#4,da$:print#4
  258. 8090 input#1,a$:ifa$="[255]"then8120
  259. 8100 getx$:ifx$="_"then8120
  260. 8110 print#4,a$:goto8090
  261. 8120 close4:goto1030
  262. 9000 :
  263. 9010 rem edit part ii
  264. 9020 :
  265. 9030 az=7:a$(1)="read data bank":a$(2)="edit data bank":br=14:lg=7:z=2:s=15
  266. 9040 a$(3)="search an item":a$(4)="count entries":a$(7)="return to menu"
  267. 9050 a$(5)="save entries":a$(6)="edit data list":bn=1:en=7:gosub320:gosub510
  268. 9060 onqgoto9070,9180,9420,9320,9310,11030,1030
  269. 9070 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  270. 9080 a$(4)="see.":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  271. 9090 gosub400:ifbe$=""then9120
  272. 9100 ifbe$="_"then9030
  273. 9110 sa=val(be$):ifsa+20>szorsa<1then9080
  274. 9120 ifsa+20>szorsa<1then9080
  275. 9130 gosub80:gosub730:forz=1to21:input#1,b$(z):next:print"":fori=1to21:w$=""
  276. 9140 forx=1toi:w$=w$+"":next:printw$;"";sa
  277. 9150 sa=sa+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  278. 9160 printw$;"";b$(i):next:gosub990
  279. 9170 goto9070
  280. 9180 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  281. 9190 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  282. 9200 gosub400:ifbe$=""then9215
  283. 9205 ifbe$="_"then9030
  284. 9210 sa=val(be$):sw=sa:ifsa+21>szorsa<1then9190
  285. 9215 sw=sa:ifsa+21>szorsa<1then7190
  286. 9220 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  287. 9225 forx=1toi:w$=w$+"":next:printw$;"";sw
  288. 9230 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  289. 9235 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  290. 9240 fori=1to21:ifui=1thennext:ui=0:goto9180
  291. 9243 tr$="":mi=1:ma=25:s=6:z=z+1:gosub400
  292. 9244 tr$=tr$+left$(be$+"                        ",25)+" "
  293. 9245 ifbe$="_"thenui=1:next:ui=0:goto9180
  294. 9250 mi=4:ma=4:s=32:gosub400:tr$=tr$+be$
  295. 9290 gosub730:print#1,tr$:sa=sa+1:next
  296. 9300 goto9215
  297. 9310 close1:close15:open15,8,15,"i0":open1,8,3,da$:goto9030
  298. 9320 az=5:a$(1)="counting":fori=2to4:a$(i)="":next:s=s+2:z=z+2:lg=5:br=8
  299. 9330 a$(5)="stand by":gosub320:ne=0:sa=1:gosub730
  300. 9340 input#1,a$:b$=right$(a$,4):sa=sa+1
  301. 9350 poke214,z+3:poke211,s+2:sys58732:printright$("    "+str$(sa),4)
  302. 9360 ne=ne+val(b$)
  303. 9370 ifb$<>"[255]"then9340
  304. 9380 sa=sa-1:az=5:z=z+2:s=s+2:br=12:lg=5:a$(1)=da$:a$(2)="includes"
  305. 9390 a$(3)=right$("     "+str$(ne),5)+" stamps"
  306. 9400 a$(4)="":a$(5)="press button":gosub320:gosub990
  307. 9410 goto9030
  308. 9420 az=3:z=z+2:s=s+2:lg=3:br=27:a$(1)="please enter the name of":mi=1:ma=25
  309. 9430 a$(2)="the item you want to find":a$(3)=":":gosub320
  310. 9440 gosub400:ifbe$="_"then9030
  311. 9450 be$=left$(be$+"                        ",25)
  312. 9460 sa=1:gosub730
  313. 9470 input#1,a$:sa=sa+1:ifa$="[255]"then9500
  314. 9480 b$=left$(a$,25):ifbe$<>b$then9470
  315. 9490 sa=sa-1:goto9120
  316. 9500 az=5:lg=5:br=15:z=z+2:s=s+2:a$(1)="the name is not"
  317. 9510 a$(2)="included in":a$(3)=da$:a$(4)="":a$(5)="press button":gosub320
  318. 9520 gosub990:goto9030
  319. 10000 :
  320. 10010 rem edit data list i
  321. 10020 :
  322. 10030 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  323. 10040 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  324. 10050 gosub400:ifbe$=""then10080
  325. 10060 ifbe$="_"then7030
  326. 10070 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  327. 10080 sw=sa:ifsa+21>szorsa<1then10190
  328. 10090 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  329. 10100 forx=1toi:w$=w$+"":next:printw$;"";sw
  330. 10110 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  331. 10120 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  332. 10130 fori=1to21:ifui=1thennext:ui=0:goto7180
  333. 10140 tr$=left$(b$(z),22):mi=1:ma=1:s=28:z=z+1:gosub400:tr$=tr$+be$:tr$(1)=be$
  334. 10150 ifbe$="_"thenui=1:next:ui=0:goto10040
  335. 10160 gosub730:print#1,tr$:sa=sa+1:next
  336. 10170 goto10080
  337. 11000 :
  338. 11010 rem edit data list ii
  339. 11020 :
  340. 11030 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  341. 11040 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  342. 11050 gosub400:ifbe$=""then11080
  343. 11060 ifbe$="_"then7030
  344. 11070 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  345. 11080 sw=sa:ifsa+21>szorsa<1then11190
  346. 11090 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  347. 11100 forx=1toi:w$=w$+"":next:printw$;"";sw
  348. 11110 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  349. 11120 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  350. 11130 fori=1to21:ifui=1thennext:ui=0:goto7180
  351. 11140 tr$=left$(b$(z),26):mi=4:ma=4:s=32:z=z+1:gosub400:tr$=tr$+be$
  352. 11150 ifbe$="____"thenui=1:next:ui=0:goto11040
  353. 11160 gosub730:print#1,tr$:sa=sa+1:next
  354. 11170 goto11080
  355.